#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function MsgGet( cTitle, cText, uVar )

   local oDlg
   local uTemp := uVar
   local lOk   := .f.

   DEFINE DIALOG oDlg FROM 10, 20 TO 20, 60 TITLE cTitle

   @ 1,  2 SAY cText OF oDlg
   @ 2,  2 GET uTemp OF oDlg
   @ 4,  3 BUTTON "&Aceptar"  OF oDlg SIZE 50, 12 ACTION ( oDlg:End, lOk := .t. )
   @ 4, 13 BUTTON "&Cancelar" OF oDlg SIZE 50, 12 ACTION ( oDlg:End(), lOk := .f. )

   ACTIVATE DIALOG oDlg CENTERED

   if lOk
      uVar := uTemp
   endif

return lOk

//----------------------------------------------------------------------------//
